-- card: 23216 from stack: in.2r
-- bmap block id: 0
-- flags: 0000
-- background id: 14090
-- name: MergeStacks


-- part 1 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=159 top=244 right=274 bottom=364
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Merge Stacks
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then pass mouseup

  global destination,source
  put "Copy cards FROM which stack?"
  put filename("STAK") into source
  if source is empty then exit mouseUp
  put "Paste cards TO the end of which stack?"
  put filename("STAK") into destination
  if destination is empty then exit mouseUp
  answer "Merge stack " & quote & source & quote & " and " & quote & destination & quote & " ?" with "Merge" or "Cancel"                   --give user chance to bail out
  if it = "Cancel" then exit mouseUp
  show message box
  put "After I'm done, I'll leave you at the merged stacks." into message
  set lockScreen to true
  go to stack source
  repeat for the number of cards
    domenu copy card
    go next card
    push card
    go last card of destination
    domenu paste card
    pop card
  end repeat
  set lockScreen to false
  go to stack destination
  put "Merge Complete! You're at the beginning of stack " & destination
end mouseUp


-- part 2 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=150 top=135 right=218 bottom=362
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 


-- part contents for background part 5
----- text -----
6

-- part contents for background part 12
----- text -----
MergeStacks

-- part contents for card part 2
----- text -----
This button will append one stack onto the end of another one.